home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / mailfilter / theanswer / betreff_filter.ta3 next >
Text File  |  1994-12-17  |  2KB  |  85 lines
  1. /* Arexx-Script für TheAnswerIII und MailFilter */
  2.  
  3. /*
  4. ** $VER: Betreff_Filter.TA3 1.1 (18.12.94)
  5. **
  6. ** Übernimmt den Betreff der Mail unterm Cursor in den Betreff-Filter,
  7. ** vorangestellte 'Re:' oder 'Re^x:' werden entfernt. Dem Betreff wird
  8. ** dann jeweils ein '#?' oder '*' vorangestellt und angehängt. Im Betreff
  9. ** vorkommende Jokerzeichen werden durch Voranstellen eines Hochkommas
  10. ** ausgeschaltet. Nach erfolgreicher Übernahme in den Filter öffnet sich
  11. ** das Fenster und der gerade übernommene Betreff ist selektiert.
  12. */
  13.  
  14. /* Ergebnisse anfordern */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. /* Name des Screens auslesen */
  19.  
  20. PARSE ARG screenname " " datei
  21.  
  22. IF OPEN('Name',datei,'READ')=0 THEN NOP
  23. ELSE
  24.   DO
  25.      DO UNTIL POS('BET:',Zeile)>0 | EOF('Name')=1
  26.         Zeile=READLN('Name')
  27.        IF EOF('Name')=1 THEN RC=10
  28.      END
  29.   END
  30. CLOSE('Name')
  31.  
  32.  
  33. IF RC>10 | LENGTH(Zeile)<4 THEN
  34.  EXIT
  35.  
  36. Zeile = RIGHT(Zeile,LENGTH(Zeile)-LENGTH("BET:")-1)
  37. betreff.pattern    = LEFT(Zeile,LENGTH(Zeile)-1)
  38. betreff.emppattern = ''
  39. betreff.newsgroup  = ''
  40. betreff.mailtype   = ''
  41. betreff.action     = ''
  42.  
  43.  
  44. /* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
  45.  
  46. IF ~SHOW(PORTS,'MAILFILTER') THEN DO
  47.    ADDRESS COMMAND
  48.    'run >NIL: <NIL: MAILFILTER:MailFilter'
  49.  
  50.    DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
  51.       'WaitForPort MAILFILTER'
  52.    END
  53.  
  54.    IF rc = 5 THEN DO
  55.       SAY 'Kann MailFilter nicht starten!'
  56.       EXIT(10)
  57.    END
  58. END
  59.  
  60.  
  61. /* Aktuellen TheAnswer-Screen einstellen */
  62.  
  63. ADDRESS MAILFILTER
  64.  
  65. GETATTR screen
  66.  
  67. IF result ~= screenname THEN DO
  68.    DEACTIVATE
  69.    SETATTR screen screenname
  70. END
  71.  
  72.  
  73. /* Betreff in den Betrefffilter übernehmen und das */
  74.  
  75. ADDITEM TO subject STEM betreff CONVERT POPUP
  76.  
  77. /* Prefs speichern */
  78.  
  79. IF rc = 0 THEN
  80.    SAVE
  81.  
  82. /* Beenden */
  83.  
  84. EXIT(0)
  85.